home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1238 / samples / abapexmp.ab_ / abapexmp.ab
Encoding:
Text File  |  1996-03-13  |  4.7 KB  |  182 lines
  1. * Easy V - Generated by EasyCODE(SPX) V6.0 at 14.03.1996 10:20:52
  2. * Easy V - with C:\EASY\ABAP4.CFG 
  3. * Easy ( ABAPEXMP
  4. * Easy !
  5. REPORT ABAPEXMP.
  6. * Easy ( DATA
  7. * Easy !
  8.  SEGMENTS:  MA.
  9.  TABLES:    MACO,
  10.             ZZV03.
  11.  DATA:      K01_NEWRECORD(5) VALUE  'KV31',
  12.             K_STRU(4)        TYPE C VALUE 'K203',
  13.             SEARCH_FLAG(1)     TYPE C.
  14.  DATA:
  15.   BEGIN OF E_RECORD,
  16.    FILLER(4)     TYPE C,
  17.    SITE(2)       TYPE C,
  18.    REST(100)     TYPE C.
  19.   END OF E_RECORD,
  20.   
  21. * Easy )
  22. * Easy ( PROCESSING
  23. * Easy !
  24.  DO.
  25.   CASE MODUS.
  26.    WHEN 'ONLINE'.
  27.     READ DATASET DSNR INTO E_RECORD.
  28.    WHEN 'BATCH'.
  29.     READ DATASET DSNAME INTO E_RECORD.
  30.    WHEN OTHERS.
  31.     EXIT.
  32.   ENDCASE.
  33.   MOVE E_RECORD-REST TO AVTS+4.
  34.   IF NOT ( SY-SUBRC = 0 ).
  35.    IF SY-INDEX EQ 1.
  36.     WRITE: / 'NO DATA AVAILABLE'.
  37.    ENDIF.
  38.    EXIT.
  39.   ENDIF.
  40.   ON CHANGE OF E_RECORD-SITE.
  41.    PERFORM U020-INIT-BTCI.
  42.   ENDON.
  43. * Easy ( GET PART NUMBER
  44. * Easy !
  45.   MOVE E_RECORD-MACID TO Z_MACID.
  46. * Easy ( DECISION E_RECORD-SITE
  47. * Easy !
  48.   CASE E_RECORD-SITE.
  49.    WHEN K07_SITE-AVTS.
  50.     IF AVTS-PARTNR NE Z_AVTS_NR.
  51.      MOVE AVTS-PARTNR TO SEARCH_AVTS-PARTNR.
  52.      MOVE SEARCH_AVTS TO SEARCH.
  53.      PERFORM U010-SEARCH-MATNR.
  54.     ENDIF.
  55.    WHEN K09_SITE-VT.
  56.     IF AVTS-PARTNR NE Z_AVTS_NR.
  57.      MOVE AVTS-PARTNR TO SEARCH_VT-PARTNR.
  58.      MOVE SEARCH_VT TO SEARCH.
  59.      PERFORM U010-SEARCH-MATNR.
  60.     ENDIF.
  61.    WHEN K0_SITE-PN.
  62.     IF     ( AVTS-PARTNR NE Z_AVTS_NR )
  63.         OR ( NOT ( AVTS-ORGNR = Z_AVTS_ORGNR ) ).
  64.      MOVE AVTS-PARTNR TO SEARCH_PN-PARTNR.
  65.      MOVE AVTS-ORGNR TO SEARCH_PN-ORGNR.
  66.      MOVE SEARCH_PN TO SEARCH.
  67.      PERFORM U010-SEARCH-MATNR.
  68.     ENDIF.
  69.   ENDCASE.
  70. * Easy )
  71. * Easy ( DECISION TRANSACTION
  72. * Easy !
  73.   IF     ( SEARCH_FLAG EQ SPACE )
  74.      AND ( AVTS-LOEVM EQ SPACE ).
  75.    MOVE K01-NEWRECORD TO Z_TRANSCD.
  76.    PERFORM U030-BTCI-CREATE.
  77.   ELSE.
  78.    IF AVTS-LOEVM NE SPACE.
  79.     MOVE K02_CORRECTION TO Z_TRANSCL.
  80.     PERFORM U050-BTCI-CREATE.
  81.    ENDIF.
  82.    MOVE MATCH_MATNR TO MATCH_TEST.
  83.    IF MATCH_TEST-FELD_REST SPACE.
  84.     IF E_RECORD-SITE = K07_SITE_AVTS.
  85.      IF AVTS-ORGNR > SPACE.
  86.       MOVE AVTS-ORGNR TO MATCH_ORGNR-ORGNR.
  87.       WRITE: ' #' TO MATCH_ORGNR-ORGNR + SY-FDPOS.
  88.       MOVE MATCH_ORGNR TO Z_MATNR-MATNUM.
  89.       MOVE K01_NEWRECORD TO Z_TRANSCD.
  90.       PERFORM U030-BTCI-CREATE.
  91.      ELSE.
  92.       WRITE: SEARCH.
  93.      ENDIF.
  94.     ELSE.
  95.      WRITE: SEARCH.
  96.     ENDIF.
  97.    ENDIF.
  98.   ENDIF.
  99.   MOVE: AVTS-PARTNR TO Z_AVTS_NR,
  100.         AVTS-ORGNR TO Z_AVTS_ORGNR.
  101. * Easy )
  102. * Easy )
  103.  ENDDO.
  104. * Easy )
  105. * Easy ( SUBROUTINES
  106. * Easy !
  107. * Easy ( U010-SEARCH-MATNR
  108. * Easy !
  109.  FORM U010-SEARCH-MATNR.
  110.   CLEAR: SEARCH_FLAK, Z_FOUND.
  111.   CASE Z_MACID.
  112.    WHEN K03_MACID_AVTS.
  113.     SELECT * FROM MACO WHERE MACDB EQ 'MARA'
  114.                          AND MACID EQ Z_MACID
  115.                          AND RESKY GE SEARCH.
  116.      IF MACO-RESKY(29) NE SEARCH.
  117.       MOVE 'N' TO Z_FOUND.
  118.       EXIT.
  119.      ENDIF.
  120.      WRITE: MACO-RESKY+46(10) TO Z_MATNR-MATNUM.
  121.      MOVE SPACE TO Z_MATNR-ORGNR.
  122.     ENDSELECT.
  123.    WHEN K04_MACID_PN.
  124.     SELECT * FROM MACO WHERE MACDB EQ 'MARA'
  125.                          AND MACID EQ Z_MACID
  126.                          AND RESKY GE SEARCH.
  127.      IF MACO-RESKY(33) NE SEARCH.
  128.       MOVE 'N' TO Z_FOUND.
  129.       EXIT.
  130.      ENDIF.
  131.      WRITE: MACO-RESKY+48(10) TO Z_MATNR-MATNUM.
  132.      MOVE SPACE TO Z_MATNR-ORGNR.
  133.     ENDSELECT.
  134.   ENDCASE.
  135.   IF     ( SY-SUBRC NE 0 )
  136.       OR ( Z_FOUND NE SPACE ).
  137.    MOVE 'X' TO SEARCH_FLAG.
  138.    CASE Z_MACID.
  139.     WHEN K03_MACID_AVTS.
  140.      MOVE AVTS-PARTNR TO MATCH_MATNR_AVTS-PARTNR.
  141.      MOVE MATCH_MATNR_AVTS TO MATCH_MATNR
  142.     WHEN K04_MACID_AVTS.
  143.      MOVE AVTS-PARTNR TO MATCH_MATNR_PN-PARTNR.
  144.      MOVE AVTS-ORGNR TO MATCH_MATNR_PN-ORGNR.
  145.      MOVE MATCH_MATNR_PN TO MATCH_MATNR
  146.    ENDCASE.
  147.    MOVE MATCH_MATNR TO Z_MATNR-MATNUM
  148.   ENDIF.
  149.  ENDFORM.
  150. * Easy )
  151. * Easy ( U020-INIT-BTCI
  152. * Easy !
  153.  FORM U020-INIT-BTCI.
  154.   REFRESH DYNPRO D00001.
  155.   MOVE: SY-MANDT    TO D00001-MANDT,
  156.         FOLDER       TO D00001-BNAME,
  157.         E_RECORD-SITE TO D00001-BNAME+4,
  158.         SY-TIME    TO D00001-BNAME+6,
  159.         SY-LANGU    TO D00001-SPRAS,
  160.         'PASS'      TO D00001-BCODE.
  161.   TRANSFER-DYNPRO D00001.
  162.  ENDFORM.
  163. * Easy )
  164. * Easy ( U030-BTCI-CREATE
  165. * Easy !
  166.  FORM U030-BTCI-CREATE.
  167.   REFRESH DYNPRO SAPMV13K_0100.
  168.   MOVE K_COND     TO SAPMV13K_0100-RV13K-KONAR.
  169.   MOVE: K_STRU    TO SAPMV13K_0100-RV13K-DSTRU,
  170.         'S'       TO SAPMV13K_0100-SP,
  171.         Z_TRANSCD TO SAPMV13K_0100-TC.
  172.   TRANSFER-DYNPRO SAPMV13K_0100.
  173.   REFRESH DYNPRO SAPMV13K_0203.
  174.   IF AVTS-DATAB > SPACE.
  175.    MOVE AVTS-DATAB TO SAPMV13K_203-RV13K-DATAB.
  176.   ENDIF.
  177.  ENDFORM.
  178. * Easy )
  179. * Easy )
  180.  
  181. * Easy )
  182.